﻿Public Class Fomulario1

    Private Sub btn_aqui_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_aqui.Click
        'declaro una variable para recoger el valor de la función MSGBOX.
        Dim numero_respuesta As Integer
        'asignamos el valor devuelto por la dunción msgbox a la variable.
        numero_respuesta = MsgBox("¿Desea Salir?", 292, "Saludos")

        'elegimos el texto a mostrar en caso de que pulse SI o NO
        Select Case numero_respuesta
            Case MsgBoxResult.Yes

                MsgBox("Saliendo del programa...", , "")
                Me.Close()
            Case 7 Or vbNo
                MsgBox("Volvemos al programa.", , "")
        End Select

        '"Hola este es el ejemplo del salto de linea" + vbLf + "al hacer esto la segunda parete del string queda en el segundo reglon")
    End Sub

    Private Sub btn_nombre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_nombre.Click
        Dim resultado As String
        resultado = InputBox("Indíqueme nombre ciudad, por favor: ", "CIUDAD", "Madrid", 500, 400)
        '500 es la "X" y 400 es la "Y" respecto de la esquina superior izquierda de la pantalla.
        MsgBox("El nombre introducido es: " & resultado)
    End Sub
End Class
